home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / doc / radeontool / lightwatch.pl < prev    next >
Encoding:
Perl Script  |  2009-01-03  |  846 b   |  32 lines
  1. #!/usr/bin/perl -w
  2. use strict;
  3.  
  4. #
  5. #  This handy script watches when the screensaver activates and
  6. #  toggles the LCD backlight.  You won't see more than a 
  7. #  second of the screensaver, so you might as well chose one
  8. #  which consumes few MIPS/battery.
  9. #
  10. #  You will probably want to make this script owned by root
  11. #  and SUID.  Also you will need the perl-suidperl package installed
  12. #  for RedHat systems.
  13. #     chown root lightwatch
  14. #     chmod u+x lightwatch
  15. #
  16.  
  17. delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
  18. $ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin:/sbin:/usr/sbin:/usr/local/sbin';
  19.  
  20. $<=0;  # become root not just effective root
  21.  
  22. open(XS,"/usr/X11R6/bin/xscreensaver-command -watch|") or die;
  23. while(<XS>) {
  24.    if(/^BLANK/i) {
  25.       system("radeontool light off");
  26.    } elsif(/^UNBLANK/i) {
  27.       system("radeontool light on");
  28.    }
  29. }
  30.  
  31.  
  32.